home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
LOGIC Apps
/
Logic-APPLE_II_APPS.iso
/
mac
/
LOGIC Apple II 5.25" Library - ProDOS
/
PRO001.dsk
/
FIN
/
INIT.INVESTMENT.bas
< prev
next >
Wrap
BASIC Source File
|
2012-02-16
|
839b
|
26 lines
10 PRINT "INITIAL INVESTMENT"
20 PRINT
29 REM - STATEMENTS 30 TO 100 REQUEST USER INPUT
30 PRINT "TOTAL VALUE AFTER Y YEARS";
40 INPUT T
50 PRINT "NUMBER OF COMPOUNDING PERIODS PER YEAR";
60 INPUT N
70 PRINT "NUMBER OF YEARS, MONTHS";
80 INPUT Y0,M
84 REM - CALCULATE YEARS FROM YEARS AND MONTHS
85 Y = (12 *Y0 +M)/12
90 PRINT "NOMINAL INTEREST RATE";
100 INPUT I
108 REM - CALCULATE INTEREST RATE PER PERIOD;
109 REM - CONVERT FROM % TO DECIMAL
110 I = I/N/100
120 P = T/(1 +I) ^(N *Y)
129 REM - ROUND OFF TO NEAREST CENT, PRINT
130 PRINT "INITIAL INVESTMENT = $"; INT(P *100 +.5)/100
139 REM - PRINT BLANK LINE TO SEPARATE DATA FROM QUESTION
140 PRINT
149 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED
150 PRINT "MORE DATA?(1=YES, 0=NO)";
160 INPUT X
170 IF X = 1 THEN 20
180 PRINT "<CTRL-D>RUNHELLO"